es:ES, A, B:Type, Ias:(AbsInterface(A) List), Ibs:(AbsInterface(B) List), f:(E(p-first(Ias))B).
(Ia1,Ia2Ias.  e, e':E. ((e  Ia1))  ((e'  Ia2))  ((loc(e) = loc(e')  Id)))
 (Ib1,Ib2Ibs.  Ib1  Ib2 = 0)
 (||Ias|| = ||Ibs||  )
 (i:{0..||Ias||}. glued(es; B; f; Ias[i]; Ibs[i]))
 glued(es; B; f; p-first(Ias); p-first(Ibs)) 

latex

Definitions

x:A  B(x), b, ES, Type, type List, g glues Ia:Qa f Ib:Rb, Q-R-glued(es; Ib_valtype; f; Ia; Qa; Ib; Rb), s = t, x:AB(x), Top, Void, x:A.B(x), P  Q, x:A. B(x), <a, b>, left + right, EqDecider(T), Unit, IdLnk, Id, EOrderAxioms(E; pred?; info), f(a), EState(T), Knd, kindcase(k; a.f(a); l,t.g(l;t) ), Msg(M), , , val-axiom(E;V;M;info;pred?;init;Trans;Choose;Send;val;time), e < e', r  s, , constant_function(f;A;B), P & Q, let x,y = A in B(x;y), E, S  T, E(X), A, (x,yL.  P(x;y)), X  Y = 0, , {i..j}, l[i], glued(es; B; f; Ia; Ib), p-first(L), AbsInterface(A), t  T, e loc e' , x.A(x), loc(e), , e  X, x,y. t(x;y), ||as||, {x:A| B(x)} , False, A  B, i  j < k, t.1, True, T, suptype(S; T), glues(es; B; g; f; Ia; Ib), a < b, #$n, P  Q, P  Q, if b then t else f fi , (e <loc e'), isrcv(e), Atom$n

Lemmas

es-E-interface-p-first, es-isrcv-loc, es-le-loc, glued-Q-R-glued, int seg wf, le wf, glues wf, glued wf, select wf, p-first wf, subtype rel list, int seg properties, length wf1, es-interface wf, es-interface-disjoint wf, pairwise wf, assert wf, es-is-interface wf, not wf, Id wf, es-loc wf, Q-R-glued-first, es-E-interface wf, p-first wf-interface, subtype rel function, es-E wf, subtype rel sum